home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / comm / www / ffchecker.lha / ffchecker / goweb.rexx < prev    next >
OS/2 REXX Batch file  |  1999-03-10  |  958b  |  41 lines
  1. /*  FFchecker gotourl.rexx written by Gavin Mclean
  2. ** (fast@f1world.demon.co.uk)
  3. **  for use with FFchecker. */
  4.  
  5.  
  6. /*--------- Enter the Path to your Browser : ----------*/
  7.  
  8. BROWSER = "dh1:internet/ibrowse/ibrowse"
  9.  
  10. /*---------- ARexx port of Browser : ---------*/
  11.  
  12. APORT = "IBROWSE"
  13.  
  14. /*--------------------------------------------*/
  15.  
  16. PARSE ARG url
  17. OPTIONS RESULTS
  18.  
  19. url="http://www.f1world.demon.co.uk/f1gp/"
  20.  
  21. Display:
  22.     SELECT
  23.         WHEN SHOW("P", "IBROWSE")     THEN Browser("IBROWSE","GOTOURL "url)
  24.         WHEN SHOW("P", "AWEB.1")      THEN Browser("AWEB.1","OPEN "url)
  25.         WHEN SHOW("P", "AMOSAIC.1")   THEN Browser("AMOSAIC.1","JUMP URL "url)
  26.         WHEN SHOW("P", "VOYAGER")     THEN Browser("VOYAGER","GOTOURL "url)
  27.         OTHERWISE NoBrowser()
  28.     END
  29.  
  30. Browser:
  31.     PARSE ARG port,loadpage
  32.     ADDRESS(port)
  33.     loadpage
  34.     EXIT
  35.  
  36. NoBrowser:
  37.     ADDRESS COMMAND 'Run ' BROWSER
  38.     ADDRESS COMMAND "WaitForPort" APORT
  39.     Display()
  40.     EXIT
  41.